home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 November / macformat-018.iso / Utility Spectacular / Developer / Mac F2C 1.0 / Mac F2C Libraries / libF77 Sources / ef1asc_.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-05-15  |  453 b   |  22 lines  |  [TEXT/KAHL]
  1. /* EFL support routine to copy string b to string a */
  2.  
  3. #include "f2c.h"
  4.  
  5.  
  6. #define M    ( (long) (sizeof(long) - 1) )
  7. #define EVEN(x)    ( ( (x)+ M) & (~M) )
  8.  
  9. #ifdef KR_headers
  10. extern VOID s_copy();
  11. ef1asc_(a, la, b, lb) ftnint *a, *b; ftnlen *la, *lb;
  12. #else
  13. extern void s_copy(char*,char*,ftnlen,ftnlen);
  14. int ef1asc_(ftnint *a, ftnlen *la, ftnint *b, ftnlen *lb)
  15. #endif
  16. {
  17. s_copy( (char *)a, (char *)b, EVEN(*la), *lb );
  18. #ifdef __cplusplus
  19. return 0;
  20. #endif
  21. }
  22.